home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1985 June / Ahoy_Magazine_85-06_1985_Double_L.d64 / screen dump i (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  938b  |  34 lines
  1. 1 rem before loading this program you must poke44,64:poke16384,0:new
  2. 20 b=8192 :poke53272,24
  3. 25 poke 53265,peek(53265) or 32
  4. 30 for i=0 to 7999 : poke b+i,0 : next
  5. 40 for j=1024 to 2043 :pokej,1:next
  6. 100 for x = 0 to 319 step .4
  7. 105 y=int(100-(100*cos(x/05))*exp(-x/240))
  8. 150 char=int(x/8)
  9. 155 row=int(y/8)
  10. 160 line=y and 7
  11. 165 byte = b + row*320 + char*8 + line
  12. 170 bit=7-(x and 7)
  13. 175 poke byte,peek (byte) or (2^bit)
  14. 180 next x
  15. 190 get a$: if a$<>chr$(133) then 190
  16. 205 open4,4,5:cmd4:print chr$(10) chr$(10)
  17. 210 print chr$(27)"@":print chr$(27) chr$(51) chr$(16)
  18. 215 print"          ";
  19. 220 print"------------------------------------------------------"chr$(10)
  20. 225 forl=0 to 24:print chr$(27) chr$(76) chr$(249) chr$(2);
  21. 230 for i=1 to 119:print chr$(0);:nexti:print chr$(245);
  22. 235 for cr = 0 to 39:
  23. 240 for p  = 0 to 7:pbyt=0:e=2^(7-p)
  24. 245 for lc = 0 to 7
  25. 250 pbyt = pbyt-((peek(b+lc) and e)>0)*2^(7-lc)
  26. 255 next lc: print chr$(pbyt) chr$(pbyt);
  27. 260 next p : b=b+8
  28. 265 next cr: print chr$(245) chr$(10);
  29. 270 next l:print chr$(27)"@"
  30. 275 print"          ";
  31. 280 print"------------------------------------------------------"
  32. 285 print#4,:close4
  33. 290 end
  34.